﻿<%
sub banner(Small_Class,english)
	Set rs=Server.CreateObject("ADODB.RecordSet")
	strsql="select top 1 P_Smallpic from [Banner] where Small_Class="&Small_Class&" order by P_X Desc,id Desc"
	rs.Open strsql,conn,1,1
	if not rs.eof then
	  if english=1 then
	    tw(" style=""background:url(../products_pic/"&rs("P_Smallpic")&") no-repeat center top; """)
	  else
	    tw(" style=""background:url(products_pic/"&rs("P_Smallpic")&") no-repeat center top; """)
	  end if
	end if
	call rsclose(rs)
end sub

'导航条选定效果2010.03.14
sub menu(id)
	if a=id then response.Write(" class=""current""") end if
end sub

'产品关键字开始
sub key_products(id,Big_Class,Small_Class,ClassName,bigname,english)
if id<>"" then
	set RsL=server.createobject("adodb.recordset")
	sqll="select "&ClassName&" from [Products] Where id="&id
	RsL.open SQLl,conn,1,1
	IF Not RsL.Eof Then
	  if english=1 then
        call key_p(RsL(0))
	  elseif english=2 then
	    call key_p_en(RsL(0))
	  elseif english=3 then
	    call key_p_fa(RsL(0))
	  end if
	End IF
	call rsclose(RsL)
elseif Small_Class<>"" then
	set RsL=server.createobject("adodb.recordset")
	sqll="select "&ClassName&" from [P_Class] Where id="&Small_Class
	RsL.open SQLl,conn,1,1
	IF Not RsL.Eof Then
	  if english=1 then
        call key_p(RsL(0))
	  elseif english=2 then
	    call key_p_en(RsL(0))
	  elseif english=3 then
	    call key_p_fa(RsL(0))
	  end if
	End IF
	call rsclose(RsL)
elseif Big_Class<>"" then
	set RsL=server.createobject("adodb.recordset")
	sqll="select "&ClassName&" from [P_Class] Where id="&Big_Class
	RsL.open SQLl,conn,1,1
	IF Not RsL.Eof Then
	  if english=1 then
        call key_p(RsL(0))
	  elseif english=2 then
	    call key_p_en(RsL(0))
	  elseif english=3 then
	    call key_p_fa(RsL(0))
	  end if
	End IF
	call rsclose(RsL)
else
  if english=1 then
	call keywords_pubulic(Web_keywords,Web_description,Web_title,bigname)
  elseif english=2 then
	call keywords_pubulic(Web_keywords_en,Web_description_en,Web_title_en,bigname)
  end if
End IF
end sub	

sub key_p(id)
%><meta name="keywords" content="<%=id%>">
<meta name="description" content="<%=id%>-<%=Web_Name%>专业生产<%=id%>产品，我司坚持以市场为核心，使<%=id%>的市场占有率逐步提高，竭诚欢迎各行业用户莅临参观考察、洽谈合作。">
<title><%=id%>-<%=Web_title%></title><%
end sub

sub key_p_en(id)
%><meta name="keywords" content="<%=id%>">
<meta name="description" content="<%=id%>-<%=Web_Name_en%> Specializing in the production <%=id%>,Our adherence to the market as the core, so that <%=id%>Gradually increase the market share, sincerely welcome all industrial users come to visit, to discuss cooperation.">
<title><%=id%>-<%=Web_title_en%></title><%
end sub

sub key_p_fa(id)
%><meta name="keywords" content="<%=id%>">
<meta name="description" content="<%=id%>-<%=Web_Name_fa%> Specializing in the production <%=id%>,Our adherence to the market as the core, so that <%=id%>Gradually increase the market share, sincerely welcome all industrial users come to visit, to discuss cooperation.">
<title><%=id%>-<%=Web_title_fa%></title><%
end sub
'产品关键字结束

'新闻关键字开始
sub key_news(id,Big_Class,Small_Class,table)
if id<>"" then
	set RsL=server.createobject("adodb.recordset")
	sqll="select N_title,N_Content from [News] Where id="&id
	RsL.open SQLl,conn,1,1
	IF Not RsL.Eof Then
        call key_nr(RsL(0),lenzi2(RemoveHTML(RsL(1)),70))
	End IF
	call rsclose(RsL)
elseif Small_Class<>"" then
	set RsL=server.createobject("adodb.recordset")
	sqll="select ClassName from ["&table&"] Where id="&Small_Class
	RsL.open SQLl,conn,1,1
	IF Not RsL.Eof Then
        call keywords_pubulic(Web_keywords,Web_description,Web_title,RsL(0))
	End IF
	call rsclose(RsL)
elseif Big_Class<>"" then
	set RsL=server.createobject("adodb.recordset")
	sqll="select ClassName from ["&table&"] Where id="&Big_Class
	RsL.open SQLl,conn,1,1
	IF Not RsL.Eof Then
        call keywords_pubulic(Web_keywords,Web_description,Web_title,RsL(0))
	End IF
	call rsclose(RsL)
else
    call keywords_pubulic(Web_keywords,Web_description,Web_title,"新闻中心")
End IF
end sub	

sub key_nr(id,N_Content)
%><meta name="keywords" content="<%=id%>">
<meta name="description" content="<%=N_Content%>">
<title><%=id%></title><%
end sub

'公用的关键字开始
sub keywords_pubulic(Web_keywords,Web_description,Web_title,bigname)
%><meta name="keywords" content="<%=Web_keywords%>">
<meta name="description" content="<%=Web_description%>">
<title><%=Web_title%></title><%
end sub
'公用关键字结束

'导航条
sub biaoti(Big_Class,Small_Class,table,Bigname,ClassName)
if Small_Class<>"" then
	set RsL=server.createobject("adodb.recordset")
	sqll="select "&ClassName&" from ["&table&"] Where id="&Small_Class
	RsL.open SQLl,conn,1,1
	IF Not RsL.Eof Then
	 response.Write(RsL(0))
	End IF
	call rsclose(RsL)
elseif Big_Class<>"" then
	set RsL=server.createobject("adodb.recordset")
	sqll="select "&ClassName&" from ["&table&"] Where id="&Big_Class
	RsL.open SQLl,conn,1,1
	IF Not RsL.Eof Then
	 response.Write(RsL(0))
	End IF
	call rsclose(RsL)
else
  response.Write(Bigname)
End IF
end sub

sub daohang(Big_Class,table,ClassName)
if Big_Class<>"" then
	set RsL=server.createobject("adodb.recordset")
	sqll="select "&ClassName&" from ["&table&"] Where id="&Big_Class
	RsL.open SQLl,conn,1,1
	IF Not RsL.Eof Then
	 response.Write(" > "&RsL(0))
	End IF
	call rsclose(RsL)
End IF
end sub
'导航条结束

sub keywords(table,Web_title,Web_description,Web_keywords)
id=GetSafeStr(Request("id"))
set rs=server.createobject("adodb.recordset")
sql="select "&Web_title&","&Web_description&","&Web_keywords&" from ["&table&"] where id="&id&""
rs.open sql,conn,1,1
if not rs.eof then
Web_titlep=rs(0)
Web_descriptionp=rs(1)
Web_keywordsp=rs(2)
end if
call rsclose(rs)
%><meta name="keywords" content="<%=Web_keywordsp%>">
<meta name="description" content="<%=Web_descriptionp%>">
<title><%=Web_titlep%></title><%
end sub

sub Content_keywords(Small_Class,Web_title,Web_description,Web_keywords)
set rs=server.createobject("adodb.recordset")
if Small_Class="" then		
Set rsB=Server.CreateObject("adodb.recordset")
StrSqlb="select top 1 id from [A_Class]Where ParentClassID=1 Order by P_X desc,id desc"
rsB.open StrSqlb,conn,1,1
small=rsb("id")	
sql="select top 1 "&Web_title&","&Web_description&","&Web_keywords&" from [About] where Small_Class="&small&""
call rsclose(Rsb)
else
sql="select top 1 "&Web_title&","&Web_description&","&Web_keywords&" from [About] where Small_Class="&Small_Class&" Order BY id desc"
end if
rs.open sql,conn,1,1
if not rs.eof then
Web_titlep=rs("Web_title")
Web_descriptionp=rs("Web_description")
Web_keywordsp=rs("Web_keywords")
end if
call rsclose(rs)
%><meta name="keywords" content="<%=Web_keywordsp%>">
<meta name="description" content="<%=Web_descriptionp%>">
<title><%=Web_titlep%></title><%
end sub

sub rsclose(rs)
	rs.close
	set rs=nothing	
end sub

sub CloseConn()
	conn.close
	set conn=nothing
end sub

'网站基本信息调用开始-----------------------------------------------------------
Sub SetTw(Small_Class)
	Set RsC=Server.CreateObject("ADODB.RecordSet")
	strsql="select N_Content from [About] Where Small_Class="&Small_Class&""
	RsC.Open strsql,conn,1,1
	IF Not RsC.Eof then
		Tw(RsC("N_Content"))
	End IF
	call rsClose(RsC)
End Sub

Sub SetTw_en(Small_Class)
	Set RsC=Server.CreateObject("ADODB.RecordSet")
	strsql="select N_Content_En from [About] Where Small_Class="&Small_Class&""
	RsC.Open strsql,conn,1,1
	IF Not RsC.Eof then
		Tw(HTMLDecode(RsC("N_Content_En")))
	End IF
	call rsClose(RsC)
End Sub

Sub SetTw_Fa(Small_Class)
	Set RsC=Server.CreateObject("ADODB.RecordSet")
	strsql="select N_Content_Fa from [About] Where Small_Class="&Small_Class&""
	RsC.Open strsql,conn,1,1
	IF Not RsC.Eof then
		Tw(HTMLDecode(RsC("N_Content_Fa")))
	End IF
	call rsClose(RsC)
End Sub

Sub Content(Big_Class)
	Small_Class=GetSafeStr(Request("Small_Class"))
	set rs=server.createobject("adodb.recordset")
	if Small_Class="" then		
		Set rsB=Server.CreateObject("adodb.recordset")
		StrSqlb="select top 1 id from [A_Class] Where ParentClassID="&Big_Class&" Order by P_X desc,id desc"
		rsB.open StrSqlb,conn,1,1
		small=rsb("id")	
		sql="select top 1 N_Content from [About] where Small_Class="&small&" Order by id desc"
		call rsclose(Rsb)
	else
		sql="select top 1 N_Content from [About] where Small_Class="&Small_Class&" Order BY id desc"
	end if
	rs.open sql,conn,1,1
	if not rs.eof then
		response.Write(rs("N_Content"))
	end if
	call rsclose(rs)
End Sub

Sub Content_en(Big_Class)
	Small_Class=GetSafeStr(Request("Small_Class"))
	set rs=server.createobject("adodb.recordset")
	if Small_Class="" then		
		Set rsB=Server.CreateObject("adodb.recordset")
		StrSqlb="select top 1 id from [A_Class] Where ParentClassID="&Big_Class&" Order by P_X desc,id desc"
		rsB.open StrSqlb,conn,1,1
		small=rsb("id")	
		sql="select top 1 N_Content_En from [About] where Small_Class="&small&""
		call rsclose(Rsb)
	else
		sql="select top 1 N_Content_En from [About] where Small_Class="&Small_Class&" Order BY id desc"
	end if
	rs.open sql,conn,1,1
	if not rs.eof then
		response.Write(HTMLDecode(rs("N_Content_En")))
	end if
	call rsclose(rs)
End Sub

'参数说明
'ID:ID,length:截取的字数
Sub aboutindex(ID,length)
	Set rs=Server.CreateObject("ADODB.RecordSet")
	strsql="select N_Content from [About] where Small_Class="&ID&""
	rs.Open strsql,conn,1,1
	if not rs.eof then 
    response.Write(lenzi(delhtml(rs("N_Content")),length))
	rs.close
	set rs=nothing
	end if
End Sub

Sub aboutindex_en(id,length)
	Set rs=Server.CreateObject("ADODB.RecordSet")
	strsql="select N_Content_En from [About] where Small_Class="&id&""
	rs.Open strsql,conn,1,1
	if not rs.eof then 
    response.Write(HTMLDecode(lenzi1(delhtml(rs("N_Content_En")),length)))
	rs.close
	set rs=nothing
	end if
End Sub

sub checkisuser()
	if request.Cookies("U")="" or request.Cookies("P")="" or request.Cookies("bb4bcbed43ea219d82db4dfaa67a3bab")="" then
		Response.Write("<Script>alert('会员专区，请先登录！');window.location='login.asp';</Script>")
		Response.End
	end if
end sub

'显示客户端IP
Private Sub ShowIP()
	Dim UserTrueIP
	UserTrueIP = Request.ServerVariables("HTTP_X_FORWARDED_FOR")
	If UserTrueIP = "" Then UserTrueIP = Request.ServerVariables("REMOTE_ADDR")
	Response.Write UserTrueIP
End Sub

'防盗链
Private Sub SourceDecide
	Dim ServerName1,ServerName2
	ServerName1=CStr(Request.ServerVariables("HTTP_REFERER"))
	ServerName2=CStr(Request.ServerVariables("SERVER_NAME"))
	If Mid(ServerName1,8,Len(ServerName2))<>ServerName2 Then Response.Redirect "/index.asp"
End Sub

'执行时间
Private Sub ExeTime()
	With Response
		.Write "<table width=""100%"" border=""0"" cellspacing=""0"" cellpadding=""0"">"&vbcrlf
		.Write "<tr>"&vbcrlf
		.Write "<td align=""center"" class=""allpadding"">页面执行时间：<span class=""red_text""> 0"&FormatNumber((Timer() - StartTime),5)&" </span> 秒</td>"&vbcrlf
		.Write "</tr>"&vbcrlf
		.Write "</table>"&vbcrlf
	End With
End Sub

'内容显示分页过程开始---------------------------------------------------
'=================================================
'过程名：ContentPage
'作  用：采用手动分页方式显示文章具体的内容
'参  数：id(id),str(用什么分隔符),url（分页页面，可以带参数）
Sub ContentPage(id,str,url)
	 Set RsC=Server.CreateObject("ADODB.RecordSet")
	 strsql="select N_Content from [About] Where id="&id&""
	 RsC.Open strsql,conn,1,1
	 IF Not RsC.Eof then
     N_Content=RsC("N_Content")	
	 End IF
	 call rsClose(RsC)

	If ChkEmpty(N_Content) Then
	dim pageno
	pageno=request("pageno")
	if pageno="" then pageno=0
	N_Content=split(N_Content,str)
	allPage=UBound(N_Content)
	response.write N_Content(pageno)
	if allpage>0 then
		response.write "<br><br><br><div align=center>"
		response.Write "页次："&pageno+1&"/"&allpage+1
		response.Write "&nbsp;&nbsp;&nbsp;共 "&allpage+1&"页&nbsp;&nbsp;"
		if int(pageno)<=0 then
		response.write "首页　上一页&nbsp;&nbsp;"
		else
		response.write "<a href='"+url+"&pageno=0'>首页</a>　<a href='"+url+"&pageno="+cstr(pageno-1)+"'>上一页</a>&nbsp;&nbsp;"
		end if
		
		for i=0 to allpage
		  if i=int(pageno) then
		   response.write "<font color='red'>[" & cstr(i+1) & "]</font>&nbsp;&nbsp;"
		  else
		   response.write "<a href='"+url+"&pageno=" & i & "'>[" & i+1 & "]</a>&nbsp;&nbsp;"
		  end if
		next
  
		if int(pageno)>=allPage then
		response.write "下一页　尾页"
		else
		response.write "<a href='"+url+"&pageno="+cstr(pageno+1)+"'>下一页</a>　<a href='"+url+"&pageno="+cstr(allpage)+"'>尾页</a>"
		end if
		response.write "</div><br>"
	end if
	end if 
end sub

'判断输入字符串是否为空
Function ChkEmpty(str)
	ChkEmpty=True
	If str="" or IsNull(str) or IsEmpty(str) Then ChkEmpty=False
End Function
'内容显示分页过程结束-----------------------------------------------

'=================================================
'过程名：ShowArticleContent
'作  用：采用自动分页方式显示文章具体的内容
'参  数：length--字数
'       ArticleID--文章ID
'       url--显示页
'=================================================

sub ShowArticleContent(length,ArticleID,url)
	MaxPerPage=length
	const ShowContentByPage="yes"
	
	dim strContent,CurrentPage
	dim ContentLen,pages,i,lngBound
	dim BeginPoint,EndPoint
	
	Set RsC=Server.CreateObject("ADODB.RecordSet")
	strsql="select N_Content from [About] Where id="&ArticleID&""
	RsC.Open strsql,conn,1,1
	IF Not RsC.Eof then
	strContent=RsC("N_Content")	
	End IF
	call rsClose(RsC)
	 
	ContentLen=len(strContent)
	CurrentPage=trim(request("ArticlePage"))
	if ShowContentByPage="No" or ContentLen<=length then
		response.write strContent
		if ShowContentByPage="Yes" then
			response.write "</p><p align='center'></p>"
		end if
	else
		if CurrentPage="" then
			CurrentPage=1
		else
			CurrentPage=Cint(CurrentPage)
		end if
		pages=ContentLen\MaxPerPage
		if MaxPerPage*pages<ContentLen then
			pages=pages+1
		end if
		lngBound=MaxPerPage          '最大误差范围
		if CurrentPage<1 then CurrentPage=1
		if CurrentPage>pages then CurrentPage=pages

		dim lngTemp
		dim lngTemp1,lngTemp1_1,lngTemp1_2,lngTemp1_1_1,lngTemp1_1_2,lngTemp1_1_3,lngTemp1_2_1,lngTemp1_2_2,lngTemp1_2_3
		dim lngTemp2,lngTemp2_1,lngTemp2_2,lngTemp2_1_1,lngTemp2_1_2,lngTemp2_2_1,lngTemp2_2_2
		dim lngTemp3,lngTemp3_1,lngTemp3_2,lngTemp3_1_1,lngTemp3_1_2,lngTemp3_2_1,lngTemp3_2_2
		dim lngTemp4,lngTemp4_1,lngTemp4_2,lngTemp4_1_1,lngTemp4_1_2,lngTemp4_2_1,lngTemp4_2_2
		dim lngTemp5,lngTemp5_1,lngTemp5_2
		dim lngTemp6,lngTemp6_1,lngTemp6_2
		
		if CurrentPage=1 then
			BeginPoint=1
		else
			BeginPoint=MaxPerPage*(CurrentPage-1)+1
			
			lngTemp1_1_1=instr(BeginPoint,strContent,"</table>",1)
			lngTemp1_1_2=instr(BeginPoint,strContent,"</TABLE>",1)
			lngTemp1_1_3=instr(BeginPoint,strContent,"</Table>",1)
			if lngTemp1_1_1>0 then
				lngTemp1_1=lngTemp1_1_1
			elseif lngTemp1_1_2>0 then
				lngTemp1_1=lngTemp1_1_2
			elseif lngTemp1_1_3>0 then
				lngTemp1_1=lngTemp1_1_3
			else
				lngTemp1_1=0
			end if
							
			lngTemp1_2_1=instr(BeginPoint,strContent,"<table",1)
			lngTemp1_2_2=instr(BeginPoint,strContent,"<TABLE",1)
			lngTemp1_2_3=instr(BeginPoint,strContent,"<Table",1)
			if lngTemp1_2_1>0 then
				lngTemp1_2=lngTemp1_2_1
			elseif lngTemp1_2_2>0 then
				lngTemp1_2=lngTemp1_2_2
			elseif lngTemp1_2_3>0 then
				lngTemp1_2=lngTemp1_2_3
			else
				lngTemp1_2=0
			end if
			
			if lngTemp1_1=0 and lngTemp1_2=0 then
				lngTemp1=BeginPoint
			else
				if lngTemp1_1>lngTemp1_2 then
					lngtemp1=lngTemp1_2
				else
					lngTemp1=lngTemp1_1+8
				end if
			end if

			lngTemp2_1_1=instr(BeginPoint,strContent,"</p>",1)
			lngTemp2_1_2=instr(BeginPoint,strContent,"</P>",1)
			if lngTemp2_1_1>0 then
				lngTemp2_1=lngTemp2_1_1
			elseif lngTemp2_1_2>0 then
				lngTemp2_1=lngTemp2_1_2
			else
				lngTemp2_1=0
			end if
						
			lngTemp2_2_1=instr(BeginPoint,strContent,"<p",1)
			lngTemp2_2_2=instr(BeginPoint,strContent,"<P",1)
			if lngTemp2_2_1>0 then
				lngTemp2_2=lngTemp2_2_1
			elseif lngTemp2_2_2>0 then
				lngTemp2_2=lngTemp2_2_2
			else
				lngTemp2_2=0
			end if
			
			if lngTemp2_1=0 and lngTemp2_2=0 then
				lntTemp2=BeginPoint
			else
				if lngTemp2_1>lngTemp2_2 then
					lngtemp2=lngTemp2_2
				else
					lngTemp2=lngTemp2_1+4
				end if
			end if

			lngTemp3_1_1=instr(BeginPoint,strContent,"</ur>",1)
			lngTemp3_1_2=instr(BeginPoint,strContent,"</UR>",1)
			if lngTemp3_1_1>0 then
				lngTemp3_1=lngTemp3_1_1
			elseif lngTemp3_1_2>0 then
				lngTemp3_1=lngTemp3_1_2
			else
				lngTemp3_1=0
			end if
			
			lngTemp3_2_1=instr(BeginPoint,strContent,"<ur",1)
			lngTemp3_2_2=instr(BeginPoint,strContent,"<UR",1)
			if lngTemp3_2_1>0 then
				lngTemp3_2=lngTemp3_2_1
			elseif lngTemp3_2_2>0 then
				lngTemp3_2=lngTemp3_2_2
			else
				lngTemp3_2=0
			end if
					
			if lngTemp3_1=0 and lngTemp3_2=0 then
				lngTemp3=BeginPoint
			else
				if lngTemp3_1>lngTemp3_2 then
					lngtemp3=lngTemp3_2
				else
					lngTemp3=lngTemp3_1+5
				end if
			end if
			
			if lngTemp1<lngTemp2 then
				lngTemp=lngTemp2
			else
				lngTemp=lngTemp1
			end if
			if lngTemp<lngTemp3 then
				lngTemp=lngTemp3
			end if

			if lngTemp>BeginPoint and lngTemp<=BeginPoint+lngBound then
				BeginPoint=lngTemp
			else
				lngTemp4_1_1=instr(BeginPoint,strContent,"</li>",1)
				lngTemp4_1_2=instr(BeginPoint,strContent,"</LI>",1)
				if lngTemp4_1_1>0 then
					lngTemp4_1=lngTemp4_1_1
				elseif lngTemp4_1_2>0 then
					lngTemp4_1=lngTemp4_1_2
				else
					lngTemp4_1=0
				end if
				
				lngTemp4_2_1=instr(BeginPoint,strContent,"<li",1)
				lngTemp4_2_1=instr(BeginPoint,strContent,"<LI",1)
				if lngTemp4_2_1>0 then
					lngTemp4_2=lngTemp4_2_1
				elseif lngTemp4_2_2>0 then
					lngTemp4_2=lngTemp4_2_2
				else
					lngTemp4_2=0
				end if
				
				if lngTemp4_1=0 and lngTemp4_2=0 then
					lngTemp4=BeginPoint
				else
					if lngTemp4_1>lngTemp4_2 then
						lngtemp4=lngTemp4_2
					else
						lngTemp4=lngTemp4_1+5
					end if
				end if
				
				if lngTemp4>BeginPoint and lngTemp4<=BeginPoint+lngBound then
					BeginPoint=lngTemp4
				else					
					lngTemp5_1=instr(BeginPoint,strContent,"<img",1)
					lngTemp5_2=instr(BeginPoint,strContent,"<IMG",1)
					if lngTemp5_1>0 then
						lngTemp5=lngTemp5_1
					elseif lngTemp5_2>0 then
						lngTemp5=lngTemp5_2
					else
						lngTemp5=BeginPoint
					end if
					
					if lngTemp5>BeginPoint and lngTemp5<BeginPoint+lngBound then
						BeginPoint=lngTemp5
					else
						lngTemp6_1=instr(BeginPoint,strContent,"<br>",1)
						lngTemp6_2=instr(BeginPoint,strContent,"<BR>",1)
						if lngTemp6_1>0 then
							lngTemp6=lngTemp6_1
						elseif lngTemp6_2>0 then
							lngTemp6=lngTemp6_2
						else
							lngTemp6=0
						end if
					
						if lngTemp6>BeginPoint and lngTemp6<BeginPoint+lngBound then
							BeginPoint=lngTemp6+4
						end if
					end if
				end if
			end if
		end if

		if CurrentPage=pages then
			EndPoint=ContentLen
		else
		  EndPoint=MaxPerPage*CurrentPage
		  if EndPoint>=ContentLen then
			EndPoint=ContentLen
		  else
			lngTemp1_1_1=instr(EndPoint,strContent,"</table>",1)
			lngTemp1_1_2=instr(EndPoint,strContent,"</TABLE>",1)
			lngTemp1_1_3=instr(EndPoint,strContent,"</Table>",1)
			if lngTemp1_1_1>0 then
				lngTemp1_1=lngTemp1_1_1
			elseif lngTemp1_1_2>0 then
				lngTemp1_1=lngTemp1_1_2
			elseif lngTemp1_1_3>0 then
				lngTemp1_1=lngTemp1_1_3
			else
				lngTemp1_1=0
			end if
							
			lngTemp1_2_1=instr(EndPoint,strContent,"<table",1)
			lngTemp1_2_2=instr(EndPoint,strContent,"<TABLE",1)
			lngTemp1_2_3=instr(EndPoint,strContent,"<Table",1)
			if lngTemp1_2_1>0 then
				lngTemp1_2=lngTemp1_2_1
			elseif lngTemp1_2_2>0 then
				lngTemp1_2=lngTemp1_2_2
			elseif lngTemp1_2_3>0 then
				lngTemp1_2=lngTemp1_2_3
			else
				lngTemp1_2=0
			end if
			
			if lngTemp1_1=0 and lngTemp1_2=0 then
				lngTemp1=EndPoint
			else
				if lngTemp1_1>lngTemp1_2 then
					lngtemp1=lngTemp1_2-1
				else
					lngTemp1=lngTemp1_1+7
				end if
			end if

			lngTemp2_1_1=instr(EndPoint,strContent,"</p>",1)
			lngTemp2_1_2=instr(EndPoint,strContent,"</P>",1)
			if lngTemp2_1_1>0 then
				lngTemp2_1=lngTemp2_1_1
			elseif lngTemp2_1_2>0 then
				lngTemp2_1=lngTemp2_1_2
			else
				lngTemp2_1=0
			end if
						
			lngTemp2_2_1=instr(EndPoint,strContent,"<p",1)
			lngTemp2_2_2=instr(EndPoint,strContent,"<P",1)
			if lngTemp2_2_1>0 then
				lngTemp2_2=lngTemp2_2_1
			elseif lngTemp2_2_2>0 then
				lngTemp2_2=lngTemp2_2_2
			else
				lngTemp2_2=0
			end if
			
			if lngTemp2_1=0 and lngTemp2_2=0 then
				lngTemp2=EndPoint
			else
				if lngTemp2_1>lngTemp2_2 then
					lngTemp2=lngTemp2_2-1
				else
					lngTemp2=lngTemp2_1+3
				end if
			end if

			lngTemp3_1_1=instr(EndPoint,strContent,"</ur>",1)
			lngTemp3_1_2=instr(EndPoint,strContent,"</UR>",1)
			if lngTemp3_1_1>0 then
				lngTemp3_1=lngTemp3_1_1
			elseif lngTemp3_1_2>0 then
				lngTemp3_1=lngTemp3_1_2
			else
				lngTemp3_1=0
			end if
			
			lngTemp3_2_1=instr(EndPoint,strContent,"<ur",1)
			lngTemp3_2_2=instr(EndPoint,strContent,"<UR",1)
			if lngTemp3_2_1>0 then
				lngTemp3_2=lngTemp3_2_1
			elseif lngTemp3_2_2>0 then
				lngTemp3_2=lngTemp3_2_2
			else
				lngTemp3_2=0
			end if
					
			if lngTemp3_1=0 and lngTemp3_2=0 then
				lngTemp3=EndPoint
			else
				if lngTemp3_1>lngTemp3_2 then
					lngtemp3=lngTemp3_2-1
				else
					lngTemp3=lngTemp3_1+4
				end if
			end if
			
			if lngTemp1<lngTemp2 then
				lngTemp=lngTemp2
			else
				lngTemp=lngTemp1
			end if
			if lngTemp<lngTemp3 then
				lngTemp=lngTemp3
			end if

			if lngTemp>EndPoint and lngTemp<=EndPoint+lngBound then
				EndPoint=lngTemp
			else
				lngTemp4_1_1=instr(EndPoint,strContent,"</li>",1)
				lngTemp4_1_2=instr(EndPoint,strContent,"</LI>",1)
				if lngTemp4_1_1>0 then
					lngTemp4_1=lngTemp4_1_1
				elseif lngTemp4_1_2>0 then
					lngTemp4_1=lngTemp4_1_2
				else
					lngTemp4_1=0
				end if
				
				lngTemp4_2_1=instr(EndPoint,strContent,"<li",1)
				lngTemp4_2_1=instr(EndPoint,strContent,"<LI",1)
				if lngTemp4_2_1>0 then
					lngTemp4_2=lngTemp4_2_1
				elseif lngTemp4_2_2>0 then
					lngTemp4_2=lngTemp4_2_2
				else
					lngTemp4_2=0
				end if
				
				if lngTemp4_1=0 and lngTemp4_2=0 then
					lngTemp4=EndPoint
				else
					if lngTemp4_1>lngTemp4_2 then
						lngtemp4=lngTemp4_2-1
					else
						lngTemp4=lngTemp4_1+4
					end if
				end if
				
				if lngTemp4>EndPoint and lngTemp4<=EndPoint+lngBound then
					EndPoint=lngTemp4
				else					
					lngTemp5_1=instr(EndPoint,strContent,"<img",1)
					lngTemp5_2=instr(EndPoint,strContent,"<IMG",1)
					if lngTemp5_1>0 then
						lngTemp5=lngTemp5_1-1
					elseif lngTemp5_2>0 then
						lngTemp5=lngTemp5_2-1
					else
						lngTemp5=EndPoint
					end if
					
					if lngTemp5>EndPoint and lngTemp5<EndPoint+lngBound then
						EndPoint=lngTemp5
					else
						lngTemp6_1=instr(EndPoint,strContent,"<br>",1)
						lngTemp6_2=instr(EndPoint,strContent,"<BR>",1)
						if lngTemp6_1>0 then
							lngTemp6=lngTemp6_1+3
						elseif lngTemp6_2>0 then
							lngTemp6=lngTemp6_2+3
						else
							lngTemp6=EndPoint
						end if
					
						if lngTemp6>EndPoint and lngTemp6<EndPoint+lngBound then
							EndPoint=lngTemp6
						end if
					end if
				end if
			end if
		  end if
		end if
		response.write mid(strContent,BeginPoint,EndPoint-BeginPoint)
		
		response.write "</p><p align='center'><b>"
		if CurrentPage>1 then
			response.write "<a href='"+url+"?ArticleID=" & ArticleID & "&ArticlePage=" & CurrentPage-1 & "'>上一页</a>&nbsp;&nbsp;"
		end if
		for i=1 to pages
			if i=CurrentPage then
				response.write "<font color='red'>[" & cstr(i) & "]</font>&nbsp;"
			else
				response.write "<a href='"+url+"?ArticleID=" & ArticleID & "&ArticlePage=" & i & "'>[" & i & "]</a>&nbsp;"
			end if
		next
		if CurrentPage<pages then
			response.write "&nbsp;<a href='"+url+"?ArticleID=" & ArticleID & "&ArticlePage=" & CurrentPage+1 & "'>下一页</a>"
		end if
		response.write "</b></p>"
	end if

end sub

'后台文件
Sub QuanXian(namea)
	IF namea<>True and Request.cookies("username")<>session("meng") Then
		TwScript("没有权限,返回上一页")
		Response.End()
	End IF
End Sub

Sub QuanXian1(id)
	IF instr(qx,id)<=0 Then
		TwScript("没有权限,返回上一页")
		Response.End()
	End IF
End Sub

'根据代码生成文件--------------------------------------------------
'filename生成文件名
'code文件的代码
Sub savefile(filename,code)'保存文件
	dim MyFile
    Set fso = Server.CreateObject("Scripting.FileSystemObject")
	Set MyFile = fso.CreateTextFile(Server.mapPath(filename),True,-1)
	MyFile.WriteLine(code)
	call rsclose(MyFile)
	Set fso = nothing
End Sub

'call savefile("../music/list.asp",msg) '调用示例
'根据代码生成文件结束----------------------------------------------

'删除文件开始-----------------------------------------------------
sub fsodel(filename)
	dim fso
	Set fso = CreateObject("Scripting.FileSystemObject")
	if filename<>Empty and len(filename)>0 and left(filename,7)<>"http://" then
		if fso.fileexists(server.mappath("../../products_pic/"&filename)) then
			Set thisfile = fso.GetFile(server.mappath("../../products_pic/"&filename)) 
			thisfile.Delete True
		end if
	End IF
	Set fso = nothing
end sub
'删除文件结束----------------------------------------------------

'修改文件开始-----------------------------------------------------
sub fsomodify(filename1,filename2)
	dim fso
	Set fso = CreateObject("Scripting.FileSystemObject")
	if filename1<>filename2 and len(filename2)>0 and left(filename2,7)<>"http://" then
		if fso.fileexists(server.mappath("../../products_pic/"&filename2)) then
			Set thisfile = fso.GetFile(server.mappath("../../products_pic/"&filename2)) 
			thisfile.Delete True
		end if
	End IF
	Set fso = nothing
end sub

sub fsomodify_infor(filename1,filename2)
	dim fso
	Set fso = CreateObject("Scripting.FileSystemObject")
	if filename1<>filename2 and len(filename2)>0 and left(filename2,7)<>"http://" then
		if fso.fileexists(server.mappath("../products_pic/"&filename2)) then
			Set thisfile = fso.GetFile(server.mappath("../products_pic/"&filename2)) 
			thisfile.Delete True
		end if
	End IF
	Set fso = nothing
end sub
'修改文件结束---------------------------------------------------

'文件夹复制开始---------------------------------------------------
'FolderName 原文件夹
'FolderPath 目标文件夹
sub CopyFolder(FolderName,FolderPath) 
	sFolder=server.mappath(FolderName) 
	oFolder=server.mappath(FolderPath) 
	set fso=server.createobject("scripting.filesystemobject") 
	if fso.folderexists(server.mappath(FolderName)) Then
	
		if fso.folderexists(server.mappath(FolderPath)) Then
		fso.copyfolder sFolder,oFolder 
		Else
		CreateNewFolder = Server.Mappath(FolderPath) 
		fso.CreateFolder(CreateNewFolder) 
		fso.copyfolder sFolder,oFolder 
		End if 
	
	Else 
	CopyFolder="错误,原文件夹["&sFolde&"]不存在!" 
	End If 
	set fso=nothing 
End sub 
'文件夹复制开始---------------------------------------------------

sub CopyFiles(TempSource,TempEnd)
Dim FSO
Set FSO = Server.CreateObject("Scripting.FileSystemObject")
IF FSO.FileExists(TempEnd) then
Response.Write "目标备份文件 <b>" & TempEnd & "</b> 已存在，请先删除!"
Set FSO=Nothing
Exit sub
End IF
IF FSO.FileExists(TempSource) Then
Else
Response.Write "要复制的源数据库文件 <b>"&TempSource&"</b> 不存在!"
Set FSO=Nothing
Exit sub
End If
FSO.CopyFile TempSource,TempEnd
Response.Write "已经成功复制文件 <b>"&TempSource&"</b> 到 <b>"&TempEnd&"</b>"
Set FSO = Nothing
End sub


'删除文件夹开始---------------------------------------------------
sub DelFolder(FolderPath)
	set fso=CreateObject("Scripting.FileSystemObject")
	set fo=fso.GetFolder(server.MapPath(FolderPath))
	    fo.Delete
	set fo=nothing
	set fso=nothing
end sub
'删除文件夹结束---------------------------------------------------
%>